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10020 KEIY OFF' 


cx[\z 

«v> HlP<=i 


81“ 

flWf 
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'i''' 

-■ ■ -j 


1 oc 

C3C) 

COLOR 

c 

y ‘7 ü 

F'R ]; r- 

FT' " 

F 

ROGR 

AMMA 

MECHANISCF 

1 ül 

■4u 

REM "II 

Tv 

OEIRE 

N EI OF 

IDERING " 





1 OC 

'50 

C0i....0F9 


y 7 







IOC 

60 

I I4F4....I-T- 

11 

soN): 

ER INC 

'INVOEREN 

OF V 

AI4 F 

Ii....E LEZEN T 

1 oc 

70 

C0L0F< 

'7 

y 0 







1 oc 

80 

IF AU 


..•n np 

" TFIE 

:n input 

"GEEF 

F" 11....E 

NAAM ; "; F 

" I" 

TF-IEN 10 ! 

;* é: 

(■;) 







1 OC; 

90 

PR I NT 

u 

INF' 

UT "E 

'eef het 

aa 

ntal 

s G n d e r :L n c\ 0 n c;! a 

10 1 

00 

F'R I N'T 

ü 

PRINT ; 

I = 1 





101 

10 

WH I !....£ 

I 

:u:: 

BI 






101 

20 

COLOR 

1 

4, 2 

, Os 

PRINT "G 

EE 

F INVOER 

SONDERING 

101 

C;' 

C0I....0R 

...... 

, 0 , 

0 1 ! 1 " 

PINT 





101 

40 

INPUT 

>1 

Geef 

d a t i.. 

m sonder 

i r"i 

9 



101 

50 

INPUT' 

n 

000 f 

P ro 

ectnaam 

(z 

on de 

r p LI. n t ^ k cj fïi m a o f 

101 

60 

I NF'l.J'T 

n 

Geef 

op c:! {■ 

^ac h t 90 ve 

r 




101 

70 

I I4F-'I....IT 

ii 

000 -f 

opdr 

ach tnummer 




]. 01 

80 

INPUT 

! 1 

Geef 

•i;r> 0 j-’i c .1 e i-' :i. n 9 s n ix m ni e r 



101 

^9 0 

PRINT 

n 

Geef 

type 

sonder :i. 

nq 

tl 



102 

00 

PR I NT' 

11 


type 

1 ; l"''lan t 

0 . 1 . 

conu 

s" 



"'F^ I NT 


! % Al<$ 

"O 11020 ELSE ÏF Alt O 
. 11 invoeren, ; “, BI 


", S2t 

" ^ Q"!:* 


102 lü l-'klMf " type 2 i: KleeTman tel conus" 

1 (..•' 2 ..i.' o 1 N l■•■' U 1 " 1.9 e e? ~f !■') e t t y p) e n u m m e r ; " ^ 

10230 IF (196 O 1 ) AND (S 6 O 2) THEN 10190 '* 

10.240 l-’FOl. |■••■l I i; INF-'UI "Land-- of Watersonder i n<^ L/W 
10250 11“ A2t ” "W" THEN 10302 ELSEE IF"' A 2 t O "L" TH 1114 10240 
10260 F'RINT s IN F"'UT "(3eef maa i ve 1 dn i veau tov 14 AP of type ''FLE. 

:L o270 I F (A 31 < > '' N „ B, " ) A N D (V AI... (A 31) 0) T' l-l E N 10 2 è 0 

lO,;. 80 ', F"'l■^'iNI ï 1NF”‘UI "Ues-ïïf sondeerdiep-'te? beneden maaiveld 


11 .- A •• 

y M j 


10290 A5t 


' 0 " II B3-“0 ï A6t" " 0 " 




10300 GOTO 10340 

ci....sii color o,7sprint" ==-== invoer watersondering "scolor 7,0 

103o4 F'-'R 1NT2 II4F4,...IT"Geef Ie aflesincj in m beneden bF: frame n ",133 

1 0 (J 6 F"' F"-! 1N F n 114 F' U T''' G e e f b o d e lïi ••••• w ai t e r s f;> i e C 3 e 1 i r'i m s " » A 51 

1 0 ..i (J ? F"' R; .1.14 I's 114 F4..) T'' G e e f a, f s tw a t b r s p i e g e 1 t o t b F: f r a m e i n m : ", A 6 $ 

l030E9 PRINTi; INF4JT"Geef watersp i ecje I tov NA F"-' of type 14, B. 5 " , A3$ 

10310 F'dRINTii INF’UT"6eef sondeerd iep-'te ben6?den bl< frame in m 11 ", B2 

10320 B2=-B2.B3 

10340 CL£9 

10350 PRINT " SCHAAL.WAARDEN s 

10360 PRINT ! PRINT 

lo3 70 F'RlINT "De invoEn"' dient omgerteFiend te? worden tot MN./m2" 




« 


‘.-ïp 












103ES0 F-'IRINT "Indien de? invcDer al in MI4/iTi2 staat zoals bij 6 ?en" 
lO390 F-'F?INT "gcjwone 20 tons Eronder ing is de omreeFien ingsif actor 1 " 
l04Uü F''Fa[14I "a.I.s de invoer b.v, -J^-IOOM is bedraagt ds? omrel<en .tngsfactor" 

Iu4l0 F”'l-v'INI " i..i n 1, Giecsf nu. de? omreFien i ngsif ac tor voor de ondeerinav i ge sondering, s " 

10 5 30 T141“' l.) 'T '' G e e f 1:3 tri i-"- e l< e n i n g s -f' .a c t o r' s ", A 5 

10540 CI....S 

10550 PRINT "INVOEREN SONDERING "; I 

10560 INF'LFP "Wilt u. E^en midds? 1 zware? sonderin.g invoere;n J/N: "5 Zit 

10570 IF Zit "= "J" THEN S 6 :== 3 ELSÜE IF Zit <> "N" THEN 10560 

105S0 014 Sé GOTO 10590, 10640, 10690 

10590 F-4:]R M 1 'T '0 5 B2 

10600 l••■'F^'II 4 T "Gleef conusweerstand op diepste i'i / 5 +ET 3 ; "meter," 

10610 INPUT C(M) 

10615 C(M) — A5 * C(N) 

10617 IF C(H) > 50 THEN SOUND 500, lOs INPUT "IS DIT CORRECT J/N "5 Zit; IF Zit = 
"J" THEN 10620 EL.SE 10600 
10620 NEXT M 
10630 GOTO 10780 
10é)4-0 FOR H 1 "F'ü 5 -ï?- B2 

10650 F41INT "Gieeef conus en l< 1 eef-1 -conus op diepte "5 M / S+BE; "meter," 

10660 INPUT CCH), l<(M) 

10662 IF C(H)>4<(M) THEN SOUND 500, 10; INPUT"FOUTIEVE INVOER, Typ <D.> voor Doorgaa 
n " 3ZltsIF Zlt“="D" THEN 10650 EI...SE 10662 
10665 l<(M) (KCM) - C(W)) * A5 / 15; C(M) = C(M) -.f A5 

10668 IF (C(M) > 50) OR (KCM) > 1 ) THEN SOUND 500, 10; INPUT "IS DIT CORRECT J/N 
"5 Zit; IF Zit "J" THEN 10670 Ei....SE 10650 
10670 IF (F<(M) < 0) ÜR (C(M) <-^ 0) THEN W<M) = --1 Ei....SE W(M) = 100 * K(M) / C(M) 

10680 NEXT H 

10685 GOTO 10780; REM WEGSCHRIJVEN FII..E 

10690 II4FH..)T "Tot we?ll<e? diepte zijn de? waarnemingen om de 10 cm. ; " 1 ; Dl 

10700 F""[3R M 1 TC) Dl * 10 

10'710 F“'F<I14T "Ge^ef de conusweerstand op diepte M / 10+83? " meter," 

10720 INPUT C(M) 

10725 C(N) - C(M) * A5 

10727 IF CCM) > 50 THEN SOUND 300, 10; INPUT "IS DIT CORRECT J/N"; Zit; IF Zit 

"J" THEN 10730 ELSE 10710 
10730 NEXT M 

10740 FOR M = Dl 10 + 1 TO Dl * 10 + (B2 -■ Dl) 5 

10750 PRINT "Geef de conusweerstand op diep->te "3 Dl + (M ■- ODl * 10)) / 5+B3; " 

meto?!r., " 

10760 INPUT C<M) 

10765 CCM) CCM) -x- A5 

10766 IF C(M)>50 THEN SOUND 300, 10; INPUT" IS DIT CORRECT J/N"; Zit; IF Zlt^::^:"J" THEN 
10770 ELSE 10750 

10770 NEXT M 

10780 REM "WEGSCHRIJVEN FILE" 

10790 Tt S5t + S2t 

10800 IF A3t = "I4„.B." THEN DIEP B2 +B3- VAL(A6t) ELSE DIEP B2 +B3+ ((INTCCVA 
L(A3$) + 4) / 5)) * 5) ■- VAL(A3t) -■ VAL (A6t) 

10810 IF DIEP <20,5 THEN S 8 =l ELSE IF DIEP >20.51 AND DIEP <29.5 THEN S8=2 ELSE 
SET” 3 

10820 Tt = LEFTtCTt, 8 ) + ".DAT" 

10830 OPEN Tt FOR: Oi...rTPU’T AE9 1 
























10670 IF' (K(M) < O!) QR (C<H) 0) THEEM WEM) = -l e;lse W(M) = lOO * K (N) / Cdl' 

10680 MEXT II . - r. . 11 . . u . 11 , 

öOTO 10?>30!I rem WEGE5CHRIJVEM FILE 

IOotO .[ Ml -ij I "lot welke diepte sijn de waarnemingen om de lO rm, s " s Dl 
10 /OU FDR M = 1 TO Dl -a- 10 

lO/-lo F'Fel Ml "ijeet de conusweerstand op diepte M / lO+FU;; " mp'»ter " 

10720 INPUT C(M) .’ 

10725 C(M) C(M) * A5 

10727 IF CCM) > 50 THEN SOUND 300, lOs INPUT "IS DIT CORRECT JJ/N"? ZJf.; IF 7 
"J" THEN 10730 ELSE 10710 * ' 

10730 NEXT M 

10740 F-OFl; M Dl * 10 + 1 TO Dl 10 + (B2 -■ Dl) 5 

iu/bo l-'RlNf "bee-f de conusweerstand op diepte? "5 Dl - 1 - (M ••••• (Dl * 10)) / 5 +B 3 r " 


:l. 

0727 

IF 

C (N) 

> 50 


11 111 

THEN 

107 

30 El... 

1 

0730 

NEX 

r M 


:L 

0740 

fjjr 

M 

D;{. -i»:- 

1 

0750 

print " 

Geef 

m 

e t e r 

H 



1 

0 7 6‘-’j* 

I NP 

JT C 

(M) 

1 

0765 

C (M 

) i:::: 

C (M) 

1 

0 / és 6 

I F' 

:: (M) 

>50 Tl 


1077 

0 EL. 

EBE 1 

0'750 

1 

0770 

NEX 

ï' M 


1 

i 

07S0 

"7 i-P (") 

REM 

’T' 

"NE 

(;BSCI-IRl 

j. 

1' 

0300 

1 4 > 

IF 1 

'"** U.J 

A3f 

== "N.l 

L 

(A3$ 

) + . 

4) / 

5) ) ■ 


300, lOs input" IS dit correct J/N"? ZIÜL IF Zlf="J" THEN 


10300 IF A3f - "N„B." THEN DIEP - B2 -.■■BS- VAL(A6$) ELSE DIEP = B2 -1-63+ ((INT ((VA 
L(A3$) + 4) / 5)) 5) -• VAL(A3ilO - VALCASfO 

"•--‘-'■■5 THEN S8=l ELSE IF DIEP >20.51 AND DIEP <29.5 THEN S8:=:2 ELSE 


10£)20 

T'$ = 1 . 

.EFT* ( 

T*, 8 ) - 1 - ".DAT" 



10830 

OFdlEEIM 1 

■$ f::'OFl 

OUTPUT AS 1 



10ES40 

WRI TE 

#1, S 

1*, S2*, S3*, S4*, 

85»^-4 86 488 


10850 

WRI 'IE 

#1, A 

2*, A3*, AS*, B2, A 

5 y B S y A 6> 


108é)0 

ÜN S 6 

GOTO 

10 S '7 0, :l. 0 EJ 90 , 1091C 



10870 

FÜR M 

1 TO 5 * B2! WRITE # 1 , 

C(M)! MEXT 

N 

10880 

GOTO :i 

0940 




10£S’''?0 

FOR M 

= 1 T 

0 5 B2i: WRITE # 1 , 

C (M) , K (M) 

, W(M); NEXT 

1 ü VOO 

GOTO 1 

0940 




10910 

WR I "FE 

11-1,, D 

1 



10920 

F'OIR M 

- 1 "l' 

0 Dl * 10II WRITE #1 

, C(M)s NEX 

T' M 

10930 

FOR M 

- D 1 

10 ■■i- 1 TO :oi 10 

+ (:e 2 -• Dl 

) 5; WRITE 

1 0940 

CLOSE 





10950 

I I 

••H 1 




1C) 9 6) 0 

OPEN " 

A", 3 

, "STAPEL.DAT"; WRI 

TE #3, T*s 

CL.OSE: #3 

10970 

IF I < 

föl 

THEN PRINT "VOER DE 

V0i,.J3EMDE -E; 

ONDERING IN" 

1 09‘E:f0 

WEND 





10990 

REM "L 

EZ EN 

FILE" 



1 1000 

OPiEEN " 

STAPE 

L.DAT" FOR INPUT AS 



1 1010 

I MFJ..J T' 

#3, F' 

$ 



11020 

OPEN F 

* F'GR 

INF’UT' AS 1 



1 :l, 030 

INPUT 

#1, S 

.{. n %!!) .iC. ‘4J y -.J' 1 | 5 / 4 y 

S5*, £B 6 , SEi 


11040 

INPUT' 

# 1 , A 

2*, A3*, A5*, B2, A 

5,B3,A 6 *' 


11050 

ON S 6 

GOTO 

1 1060, 1 10 80 , .11090 



11060 

FHEBR M 

1 T 

0 5 -i»:- B2s INPUT #1, 

CCM); NEXT 

M 

11070 

GOTO 1 

1 1 iïo 




11080 

l■“■OR M 

1 r 

0 5 B2s INPUT #1, 

C(M), K(M) 

y N(N)s NEXT 

11085 

GO'T'0 1 

1130 




1 :l, 090 

I NPirr 

#1, D 

1 



11100 

FOfl' M 

= 1 "F 

O 

o 

—j 

, C(M): NEX 

T N 

111 10 

FH'JR M 

Dl 

10 "i" 1 TO D:l. *■ 10 

- 1 - (82 -• Dl 

) 5k input 

11 130 

CLOSE 

# 1 




11132 

M9 := 1 





11 :i. 33 

WH 11....E 

MID* ( 

F$, M9, 1) O 

fv|9 |v|9 ;l^ 

s WEND 

11 140 

FH...O"F':|:- 

~ I....EI~ 

T*(F*,, M9 -- 1) -I- 

jyju 


1 j. :i, 42 

DAT'* 

LIEFT 

*(F*, M9 -- 1 ) 



11 143 

WEGSCH 

R* 

"COP'V " -1- DAT* -I" ". 

DAT "\SONDMEi 

CH\SONDDAT"\" 

j. 1144 

SHIEEU... 

WEGSC 

HR$ 



11145 

LILL D 

AT'*- -1- 

" .. DAT " 



1 1 150 

OF'EN F' 

L.OT* 

FOR OUTPUT AS 2 




11 152 RESTORE 


1 1 

155 

00 

TO 2025 


11 

170 

GM 

I;::Xd Uü } Li 

11180,11190,11200 

11 

180 

u / 

.j"»\ / •»;(* 

GOTO 11210 

;l. . 1 . 

1 ‘‘v-’O 

/ 

--32 2 06-52 

GOTO 11210 

i 1 

200 

0 7 

— 42 ii 06 — 7 


11 

2 :}. 0 

02 

(INTCi 

(VAL (A3*) ) - 1 - 4) / 5)) -s- 5; G3 

11 

'.F.;! 1 5 

y 

=- Q (7) - /' 

(.i) {;L 1 ) 2 Y Q ( 8 ) / Q ( 1 1 ) 2 P — 1 

11 

220 

Y 

(.) “ Y ::::: 

03II P - 3 2 GüiBUfö 2200 

11 

230 

X 

- .5 2 P -• 

2; GO SUB 2200; P = 3; GOS UB '7 

1 :L 

240 


86 0 2 

THEN 11290 

11 

250 

X 

- 18 2 F-' 

- 3; GOSUB 2200 

1 :i. 

260 

X 

- .23 2 P 

= 2; GOSUB 2200 

11 

270 

X 

.29; P 

= 3; GOSUB 2200 

1 :l. 

280 

X 

- -32:1 P 

= 2; GOSUB 2200; P = 3; GOSUB : 

11 

290 

I F' 

A2* "W 

" THEN 11335; REM -x-s- TEKENEN Wi 

11 

300 

X 

-- . 1 1 ! V' 

1 + G3; P = 3; GOSUB 2200 

11 

310 

IF 

VAL(A3*) 

= 0 THEN C* “ "MAAIVELD" ELSE 

11 

' '7 |■’‘T 

H 

„ 2; A 

ISO; GOSUB 2260 

11 

321 

X"= 

. 18.1; . 

.. 1 ■■i"G31! P=::3; GOSUB 2200 

11 

322 

IF 

VAL(A3*) 

=^=0 THEN MAAI VELD" ELSE 0*^^:^^ 

11 

323 


.. 2; A-= 190 s 

GOSUB 2260 

11 

33;o 

GO' 

ï '0 11410; 

REM **->!• TEKENEN SONDERING 

11 


X • 

- . 1 ; 'Y 

-.1 + G3; P 3; GOSUB 2200 

11 

340 

IF 

VAL(A3*) 

0 THEN C* = "WATERSPIEGEL" 1 

A3 

$ 




11 

350 

H ^ 

.. I:.' 2 A 

ISO: GOSUB 2260 

11 

351 

X---' 

•-I 8 . 1 ; ¥■•“-• 

„ 1+G3; P-~3; GOSUB 2200 

11 : 


I F 

VAL(A3*) 

^:^=0 THEN C*-- "WATERSPI EGEL " ELSE 

11 : 

353 

H-= 

. 2 ; 1 80 II 

GOSUB 2260 

11 : 

354 

1 " 

=G3-i-VAL (A 

5*) 

11: 

355 

X-.. 

-18; Y:^433; 

P:=3; GOSUB 2200 






























11220 

X "" 


1 1230 

X 

. ^ 

11240 

:i: F' 

S él' 

11250 

X 

- 18 

1 ;{. 260 

X 

. y 

;l. 1270 

X 

.;2 9 

11280 

X 

.32 

1 1290 

IF 

F-l 

11300 

X 

1 

11310 

:i; F- 

VAL C 

11320 

H = 

II 1:.' n 

11321 

X--' 

18. 1 

11 322 

F"’ 

Vi'-'iL ( 

11323 

H 

2 s A- 

11 :;::::;:::o 

GOTO 11 

■j *j inr 

X 

1 

11.340 

IF 

VAL C 

A3$ 



11350 

H 

.1 j:;! S 

11351 

X 

18. 1 

11352 

IF 

VAL C 

1 1353 


2 : 0 - 

11354 

G 3 


11355 


18: Y 

11356 

x>=>- 

‘T, it j:”' 


F' = 2s GOSUB 2200 s F -- 3!: GOSLJB 2200 
• 2 THEM 11290 

P 3s GOSUB 2200 

F"' = 2! GOSUEj! 2200 

F-' - 3s GOSiSUB 2200 

F-' 2;: GOEsUB 2200: F 3; GD Ei UB 2200 

= " W " I F’l F::. N 113 Fï 5 s F'; E' M * » 'ï' E F EI NII-IN W A T' EI F; S' F-' IE (3 E L * * -S’ 

Y = 1 + G3s P 3; GOEBUB 2200 

i3f') O ÏHEN C* == "HAAIVEUD" ELSE = "MAAIVELDs NAP " + A3f 
A = lESOii GOSUB 2260 


•„1 -i- G3! P 


3s GOSUB 2200 


. 1 ! NAP " -i" 


'+A3$ 


113'70 X 

11380 X 

11 38 1 IF 

11382 X 
11384 X 
11390 X 
11400 H 


O ii Y 


O P == 3s GOSUB 2200 
U GOSUB 2200 
lEN 11390 

3s GOSUB 2200: X - 
3ï GOSUB 2200! X ™ - 


2ï GOSUB 2200 
2: GOSUB 2200 


-18 ï P 
-29 s F-‘ 

■■„lï Y 1 -I- G3ï P = 3s GOSUB 2200 

2n A 180! Cili == "BODEM"! GOSUB 2260: P 3: GOSUB 2200 


11401 X18. :l.: Y-=.. 1 4-G3: F-'^LI':s GOSUB 2200 

11402 F-P= „ 2: A“ 180: 0^==" BODEM " : GOSUB 2260: P^=3: GOSUB 2200 

11410 IF" S 6 3 THEN 11830: F4IIM MIDDELZWAFÏE SONDEFÜING #** 

11412 G3-433-VAL. (A5$) -i-BS-VAL (A 6 $) 

11415 IF C (1) ::Y30 "FF-IEM 11430 


114-20 

X - .1 5 

C ( 

:l. 'J : Y 


03 „22 P 

3: GOSUB 


200 



11430 

FÜR 11 

1 TO 

B 2 

5 







1 1440 

PRINT " 










114-50 

WHILE 

C C M) 

-1 0 








11460 

X 

0: Y 

G3 


.2 M: P 

3: GOSUB 

aï.. .it»i 

00 



11470 

Cf 

..... U „j,. )l 

: H = 


: A = 180: 

GOSUB 2260 





114-£!0 

;[ 1 - 

C (“I" 

1 ) > 

30 

THEN CCM 

1 ) ===== 





11490 

IF 

C(il 

1 ) <; 

0 

THEN X 0 

ELSE X - 

u 5 

c: (11 


1 ) 

11500 

Y 

Y " 1 “ 

. 2 : F^'' 

rn;: 

3: GOSUB 22 

00: M - M 


1 



11510 

WEND 









*.» 

11512 

GOTO 11 

530 









11520 

WHILE G 

(11) >3 

0 








11521 

II- (G (11-1 

) >30) 

ÜF^ 

CM=1) THEM 

P-3 ELSE 

F-: 

1 *:! 



11522 

X -^-—1 

5: Y--==G 

3-1-M/5 

-u 1 

:GOSUB 2200 






11524 

X=-l 

4.7:Y 

-TT3-I-M 

75-1- 

„ 24: H=. 4! 

172:A=1S0: 

GÜSUB 23 

60 


11526 

X — 1 

5 s Y““UG 

3-Hl/5 

•I-. 1 

: P==3: GOSUB 

2200: FI--M-+-1 

: I 

F M>B2 

•Xr U 

THl 

11528 

WEND 










11530 

X .„ FS 

C ( 

M) : Y 

x:: 

G3 - 1 - M / 5: 

P = 2: GOSUB 2200 



11540 

NEXT M 










11550 

IF S 6 < 

> 2 'F'HEIN 1 

2100: REM 

KLEEF” SONDE 

RING 



11560 

X - -1 s 

. 10 

Fa 

1 ) : 

Y G;3 + « 

2: F-' = 3: 

Gü 

SUB 22 

00 


11570 

F"OR M 

1 1"0 

B2 -X' 

5 







11580 

PRINT " 

;; 









11590 

WH ILE 

!•< ( 11 ) 

<! 0 








11600 

X 

.18: 

Y 

G.3 

+ r-'l / 5: F=' 

3: GOSUB 


200 



11610 

H 

u 

G$ - 

11 „j.. 11 

: A = ISO: 

0 O 8 UB 2260 





11620 

I F- 

KCM - 1 - 

1 ) < 

(j 

THEN X == -18 ELSE X 

- 

18 - 1 

0 

K 

11630 

Y :::: 

Y 

. 2 ! P 


3: GOSUB 22 

00; |v| ,-n: |vj 

. 4 .. 

J. 



11640 

WEND 










1 1 d'jUO 

IF 11 > 

B 2 

5 THE 

N F' 

===== 3 2 0ÜSUB 

2200 : GOTO 

11670 



1 1 6/ 6 0 

X -18 

- 10 

* KC 

M ) : 

Y ===== 0F:i + F 

/ \.J 2 1 

!i:!! 2 

GOSUB 

.tll. .1*/.. 

C )0 

11670 

41EXT M 










11675 

F-' - 3: 

GOSUB 

2200 








1 1680 

REI-'-l #■?!■■?!• 

WRIJ' 

VINGS 

(ÜET 

AL 






11685 

IF WCl) 

0 

THEN 

X 

-29 FILSE X 

== -“29 « 

5 

*5^ w ( 1 ) 



11 690 

Y 1M r''i 

n !i:;! 2 

p ::::: 

/•i" 

GOSUB 2200 






1 1700 

F'OR M - 

1 "FO 

B 2 

5 







11710 

PRINT " 

•< ^ 










WF-IILE W(M) < O 

X = -29! Y = G3 - 1 - M / 5: P = 

H = „2: Cf> - A = 180: GOSUB 2260 

IF W(M + 1 ) > 10 THEN W<M -i- 1) 10 

IF W(M + 1) < O THEN X ^ -29 ELSE X 


11 '720 
11 '730 
1 1740 
11745 
11750 

11760 Y = Y - 1 - u2! P = 3: GOSUB 2200: M - M -i- 1 

11770 WEND 

11780 IF M > B2 # 5 THEN P 3: GOSUB 2200: GOTO 11800 
11785 IF W(M) > 10 THEN W(M') 10 


i: GOSUB 2200 


-29 


„5 * W(M -I- 1) 


11 '790 
11800 
11 Ei :i. O 
11820 
11830 
: 1 . 1 S5C! 
11855 
11860 
11 £!70 

I 'J. 8'3 O 

II Ei 9 O 
11900 
119 J. C) 


G3 •+• 


/ 5 ï P 


GOSUB 


X = -29 - .5 * W(M): Y 
NEXT M 

P - 3: GOSUB 2200 

GOTO 12100: F4EM *** TEKENEN STEMPEL 
rem MIDDELZWAFI'E SONDEFLilNG **«• 

X -Cd): Y 63 ■+• ui: P ^ 3: GOSUB 2200 
F'CTFi: M 1 "l"0 Dl ->!• 1,0 
PRINT "-Xr "5 

WHILE CCM) < O 

X - O: Y - G3 -I- , 1 M: P = 3: GOSUB 2200 
Cf- "-i-": H = .2: A = 180: GOSUB 2260 
I F-' C (M-i-1) > 15 TF-IEN C (M-i-1) = 15.1 

IF CCM ■+■ 1) < O THEN X = O ELSE X = -CCM -i- 1) 


200 





































I :'t''K--fï- 






Tr' 




ffl------’2 if*. ■'^;- ■• .-'*5'ï-r:-',''ïi'ï 


te O'rV‘ 


X ->/'V ']tj.. 


, ^.- V’. 3*^'. 


f/ 1' Ti 




-,"Xf''- .i'^yk 

1* -CÈ^ .ia* j 




p^''’.~rf'’^,-''“ï- ’ -f**' ƒ>'''I ’^.v,;-'- Vt 


Ü 7 r.uyy.r, * i:-i^ 










:#-pi 


BW'- 




-*i:~ ' */ ^ 


• t i'^i 


:i ;i. 695 

:[F W(i 

) < 0 THEN X = -29 EL.SE X = --29 - ,5 * W< 1 ) 




1 ;l, 690 

Y 63 

•+• » 2 ! P - 3 s GOSLiB 2200 




: 1 . 17 C !0 

i-OR M 

1 "l'C:) B 2 * 5 




1 . 17 : 1.0 

F'R;[ NT 

> ‘ 4 ^. H n 
■"• 11 




117:20 

wi-i:[ 1 ... 

E W (M ::■ < 0 




1 :l. 7:30 

X 

= . 291 ; Y = 03 - 1 - M / 5 ; P = 3 s GOSUB 2200 




11740 

H 

= u 2 i: Cüi - '' + "s A - 180 ! I 30 SUB 2260 




1174.5 

IF 

W(M ■+■ 1 ) ;> 10 THEN W(M -i- 1 ) - 10 




11750 

IF 

W(M H- 1 ) < 0 THEN X - “29 ELSEI X - -29 - „5 * W(M -i- 

1 ) 



1 :l. 760 

V 

1 

= Y - 1 “ . 2 ! P = 3 ï GOSUB 2200 ; M - M -i- 1 




1 1770 

WEND 





11780 

IF M ::^ 

B 2 * 5 THEN P :== 3 ; GOSUB 2200 ; GOTO IISOO 




11785 

IF WCH 

:> 10 THEN W(M) 10 




11790 

V ..... _ '"Jt 

9 - .5 * W(M); Y - G 3 -i- M / 5 ï P - 2 : GOSUB 2200 




11800 

ne:xï m 





11 S 10 

F- 3 s 

GOSUB 2200 




1 :l. 820 

GOTO 1 

2100 : REM *** TEKENEN STEMPEL ■»** 




. 11 S 30 

REM ■»* 

* MIDDELZWARE SONDERING •»** 




:i. 1 e;i 5 o 

X •••“ c 

( 1 ); Y = G 3 + „ 1 ; P - 3 ; GOSUB 2200 




11855 

FOR M 

-- 1 TO Dl # 10 ' 




1.1860 

PRINT 

’AX-'' « 




1 :l. 870 

Wl-I I i... 

E C(M) < 0 




1 19 tJ 0 

X 

■= 0 ; Y - G 3 -i- . 1 -x- M; P - 3 ; GOSUB 2200 




11890 

C$ 

"-F's H „ 2 ; A = 180 ; GOSUB 2260 




;l. 1900 

IF 

c (M-i- 1 :' :;^ i s "I"hen c ( m-+' i) i s „ i 




11910 

IF 

C(M - 1 - 1 ) < 0 THEN X = 0 ELSE X = -C(M -i- 1 ) 




1 :i. 920 

Ivj ..|„ <( 

:[ F 

M - Dl -s- 10 THEN Y = 'Y -i- „2 EL.;' 3 E Y - Y -i- „Is P - 3 ; 

GOS 

UB 2200 a F 

:::n 

1 1 930 

WEND 





11935 

:[F l••'■l ::> 

Dl ■ 5 <- 10 THEN 11970 




11940 ': 

WH 11 ....E 

C (M) ;:^ 15 




j. 1 '•? * 1 1 

;i: F- 

(C (M -1 ) :> 15 ) OR (M^^Fi. ) THEN P ==73 ELSE P =2 




11942 

X-. 

15 s Y'==G 3 +M 7 10 .„ 05 : G 0 S 3 UB 2200 s PR IIMT " * " ; 




11944 

X-. 

14 „ ' 7 ; Y=G 3 -i-M/ 10 +. 21 ; l-T--= „ 4 -; ...ï^:-^ 1 ' 72 : A^^ 180 s GOSUB 2360 




1 ]. '? 4 é! 

X :::-. 

:l. 5 ! Y- 63 -I-M/ 10 + „ 05 ; F'~ 3 : GOSUB 2200 ; M=H-H- 1 ; IF M>D 1-^10 'THEN 

1 :i. 

970 


1 1948 

WEND 





11950 

X -i; 

(M); Y - G 3 M / 10 : P - 2 : GOSUB 2200 




11960 

NEXT M 





1 19'70 

F 7 ::)R r -1 

= Dl # 10 - 1 - 1 Tü (Dl -x- 10 "i" (B 2 . Dl) » 5 ) 




11980 

PR I IM"I" 

n .w. 11 „ 

IJ 




1 1 990 

WH I L. 

E C(N) < 0 




12000 

A 

= 0 ; Y - G 3 + Dl -i- .2 •?■«• (M - (Dl * 10 )); P = 3 : GOSUB 

ii.c Ii! 

00 


:l. 2010 

c;::$ 

" + "; H „ 2 ; A ISO: GOSUB 2260 




12020 

IF 

C(M - 1 - 1 ) :::• 15 THEN C(M •+■ 1 ) = 15 




1 : 2 o :30 

IF 

C(M -i- 1 ) < 0 THEN X - 0 ELSE X == -C(M -i- 1 ) 




12040 

Y 

Y -i- „ 2 ; P = 3 ; GOSUB 2200 ; M M -i- 1 




12050 

WEND 





j. 2060 

IF M ;> 

Dl » 10 - 1 - (B 2 -• Dl) * 5 THEN P 3 ; GOSUB 2200 ; GOTO 

12 

ü 80 


12065 

WHILE 

C' < M) ::■■ . 15 




12067 

IF 

(C (MI- 1 ) ::^- 15 ) OR (M==N) THEN P:^P 3 ELSE F '=^2 




:i. 2068 

V ...„ 

15 : Y=€; 3 -i-D 1 -i- „ 2 - 5 «' (M-D 1 -x- 10 ) - „ 1 ; GOSUB 2200 ; PRIN'T''' " 5 




12069 

X . 

:l. 4 . 7 : Y=G 3 -i"D 1 -i-. 2 '» (M D 1 * 10 ) -i- „ 21 ; H- „ 4 : J -1 ' 72 s A- 180 ; GOSUB 

2 3 /"i 

0 


12070 

X •“•' 

15 ; Y=G: 3 -i-D 1 - 1 - „ 2 * (M-D:l. 10 ) - 1 - „ 1 s F"=T 3 ; ( 30 SUB 2200 s M-M-i -1 s 1 F M> 

D 1 * 

lo-i- (B 2 -D 1 ) 

•^•5 

l' 1-1 EN 

12090 





12071 

WEND 





120 ■ 7 :::!; 

X - -C 

(M); Y = G 3 - 1 - Dl - 1 - „2 (N - Dl -s- 10 ); P - 2 ; GOSUB 2 

200 



12080 

NEXT M 





12090 

P - 3 i; 

GOSUB 2200 




12100 

h -1 E l '■•1 •«• 

* STEMPEL *** 




121 10 

X „ 5 

; Y = G 7 -i-l„ 5 ;H=. 2 ; A= 180 ; C$="PROJECT ; " ; GOSUB 

!i:.‘! Ó 

0 ;H=f. 25 ; X== 

••”•2 

„ 6 ; C $"" 

%::> 2 ■$ u 6 Ü $::) U B 2. ‘2 6 C' 




12120 

X-„ 5 s Y 

=G' 7 -i- 2 . 15 ; H=. 211 Cïli^= " OPDRACHTGEVER ; " s GOSUB 2260 ; H^^^. 25 ; 

X=:=^. 

2 „ 6 : Ci 5 ;==S 3 « 

a (.’j 

OSUB 2 

2 6 0 





12130 

X „ 5 g Y 

=G 7 -i- 2 , S; . 2 ; C<$= " SÜND„ NR. : " ; GOSUB 2260 ; H==, 25 s 

X--” 

2 , 6 ; 

a 0 

aSUB 2 

260 





12140 

X 12 « 

05 ; Y=^^e '7 +1 „ 75 s Cil'^^:=S 4 $; GOSUB 2260 




1214-1 

X . 1 .Xlt II 

25 ; Y=e' 7 -i- „ 8 ; C$^^=S 1 $; GOSUB 2260 




12142 

IF S 6 =^= 

2 THEN Y=H 3'7 . „9 ELSE Y==G 7 - 1„1 




:l. 2 :l. 44 

X :::::. 7 ,. 5 

; Fh=^ „ 2 : Cf^ "- 1 -" ; GOSUB 2260 




12145 

/\ ***** ,i;!, tt %,J 

; Y::H 37 .„ 71 ; C$= " 50 " ; GOSUB 2260 




:i. 2 :i. 46 

Y==^ 4 :j 7 -n 

4 ; Ct=‘'o. 5 " :i GOSUB 2260 




:l. :2 :l. SC) 

RE!v! 

ïF'i-* TEKENEN DIEPTE METERS LINKERZIJDE 




1 2 ' 'i l-i '1 

FOR 

@ 9 -::;;: Q '{••□ 06 




12152 

X 

- 1 . 6 IJ Y 09 Ss F’’ 3 a GOSUB 2200 




1 .' 1 ' •) i 

l...l 

NF~yT 

•“ „ 2 ; C$ - S"i"R$(G 2 -■ G 9 -m- 5 ): A - ISO; GOSUB 2260 

!‘‘-i 




12155 

IF 86 

::fL „1 THEN 12160 ELSE 12190 




121 (60 

19 EM 

K-»* TEKENEN DIEPTE METERS RECHTERZIJDE LINKS 




12161 

F'OR 

: 39 ^:= 0 TO G 6 




12 :l 62 


=^- 17 „ 4 ; Y 69 •» 5 ; P - 3 : GOSUB 2200 




1 2163 

|...| 

„ 2 ; Ci|; = S"I"R$(G 2 - 89 * 5 ); A 180 ; GOSUB 2260 




12164 

NEXT 

09 




12170 

F<EN 

TEKENEN DIEPTE METERS RECHTERZIJDE RECHTS ***** 




12171 

F'OR 

O 1 (..) G 6 




121 '72 

X = 

- 28 „ 4 :Y=G 9 * 5 ;P= 3 ;GOSUB 2200 




12173 

Hn: 

„ 211 &=STR^ (G 2 -G 9 * 5 ) ii A- 180 ; GOSUB 2260 




12174 

NEXT 

09 




121 <?0 

IF 86 < 

:>3 THEM 12210 




12200 

X - . 4 

11 Y G 7 . 2 „ 25 ; P = 3 ; GOSUB 2200 : C<$ = "MIDDELZWARE 

SONDERING"; 


«411 A:^l 

80 n GÜS 

UB 2260 ;P= 3 ;GOSUB 2200 




12210 

X 0 n 

Y 0 : P = 999 ; GOSUB 2200 




•j 2720 

CLOSE 

#:7 




12225 

.1 F' A 1 •!> 

np„ ;|_2240 




12230 

IF NOl" 

EOF'( 3 ) THEM 11010 




12235 

CLOSE 





12238 

KILL " 

STAPEl.DAT" 




12240 

SOUND 

500 , 10 




i 12250 

END 






<, 'i^i'i* f ' /'XhVï ' ^ ' 

. ., ^_. ,y ''yj. '. j'. ^ r 5 jfï ' 




"'v i'-^;^?' ■'f'i t' ' ' . 




•pi^^'f'^'S* »ï,^V-|>'r>"'. 


•> r - - 


J '*''' .. y‘ ■t '-^' , iK' ■ '* "' 
















































12154 

12155 
12160 
12161 
12162 

12163 

12164 

12170 

12171 

12172 


12174 


PM 










•>'4pj i ~i 


1 2190 
12200 
„ 4 i! A:^-^ 
12210 
12220 
12225 


.1. '-„f 




12238 

12240 

12250 


. ' ■','. . ... ''•■•■ ' ”-• I r-i-AO i... J. |\|K.I~K/. J. JÜE 

l-Urt bv o jri 0^^ 

A “• «6; Y = G9 -ïï’ ISü F"' -- 3:; (BiJiBUB 2200 

NE;Xt"g9^' -• 89 5)= A - 180= GOSUB 2260 

li- bö > 1 u 1 rHE.'N 12160 ELBE 12190 

fïeh tekemien diepte meters"rechtef^zijde links 

l-ul"»; G'X-" o T '0 G6 

X ™-l/„4s Y =~ G9 ■;•!■ 5ï P = 3: GOSUB 2200 
NFXt'gQ^"' 5)= A = 180= GOSUB 2260 

DIEPTE METERS REChlTERZIJDE REChlTS 

i-UR 89™ O TO G6 

“.2 '''->" '''l- • Y ="■ G 9 * 5 s F"'=2.’ 3 (3 O Ei' U B 2 2 O O 

H™., 2:i Cii;=STR!|; (e2--G9*5) ii A=-180 s G053UB 2260 
NEXT G9 

IF"' S603 THEM 12210 

or.7rf2,",v2'--- ." "-■= GOSUB 2200= C$ - "MIDDELZWARE SOMDERTIMG"! F-L 

. 8u 3 i„v,iÜbU.B :,::;260 ï l■■■■.•^3 3 GOSUB 2200 

X ™ 0= Y = Os P ™ 9993 GOSUB 2200 
CLOSE #2 

IF Alf- "F" IHEN 12240 
IF NOT EOF(3) THEM 11010 
CLOSE 

KILL "BTAPEI. DAT" 

SOUND 500, 10 

END 













V-W - *i ‘ ' 





























